home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 31 / Amiga Format CD31 (1998-09-02)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1998-10].iso / -seriously_amiga- / hardware / domount / mntprfs.mrexx < prev    next >
Text File  |  1998-07-20  |  3KB  |  3 lines
  1. /*  $VER: 1.0 for DoMount v1.0
  2. */
  3. ;if ~show('l',"rexxarplib.library") then;do;call addlib("rexxarplib.library",0,-30,0);end;if ~show('l',"rexxsupport.library") then;do;call addlib("rexxsupport.library",0,-30,0);say addlib("libs:rexxsuppor.library",0,-30,0);end;Application_OpenConfigWindow=0x804299ba;List_InsertPosition =             0x8042d0cd;Slider_Max =                      0x8042d78a;Weight =                          0x80421d1f;MUIA_List_Active =                     0x8042391c;MUIA_List_Format =                     0x80423c0a;ShowMe =                          0x80429ba8;Disabled =                        0x80423661;FixHeight =                       0x8042a92b;MUIV_EveryTime = 0x49893131;MUIV_List_Insert_Bottom = -3;Selected=0x8042654b;Weight =                          0x80421d1f;MaxHeight =                       0x804293e4;scsidev='scsi.device';if exists('env:scsid') then;do;call open(scfile,'env:scsid','r');parse value readln(scfile) with scsidev;call close(scfile);end;options results;address command "volname device sys: >env:vnm";call getenv(vnm);sys=result;parse value sys with sys":"junk;sys=sys":";call setenv(sysn,sys); call setclip(devmnt,0);call setclip(red,0);address mntprfs;window ID MNTP TITLE '"DoMount"' COMMAND '"quit"' port mntprfs;menu LABEL Menu;item COMMAND '"method 'Application_OpenConfigWindow'"' PORT mntprfs LABEL "MUI...";item COMMAND '"mnt.rexx %s"' Label Quit;endmenu;group;group ID TOP FRAME ATTRS weight 1;  button ID RDUN COMMAND '"mnt.rexx %s"' LABEL "Read Units";  list ID ULST ATTRS maxheight 50;  group HORIZ;    group HORIZ;    label CENTER '"ENTER SCSI DEVICE NAME"';    popasl ID PPST CONTENT scsidev;    space;    endgroup;  endgroup; group;  group;   group HORIZ;   label CENTER '"ENTER UNIT NUMBER"';   slider ID PPSLD ATTRS Slider_max 6;   endgroup;  endgroup; endgroup; group HORIZ; button ID RDIT COMMAND '"mnt.rexx %s"' LABEL "Read It"; endgroup;endgroup;  object CLASS '"BetterBalance.mcc"';group ID BTTM FRAME ATTRS Weight 2;image ID DINST ICON devinst ATTRS Selected 0;list ID DLST COMMAND '"mnt.rexx %s"' ATTRS muia_List_Format '"MIW=50,MIW=50"';endgroup;group HORIZ;button ID MNTD COMMAND '"mnt.rexx mntd"' LABEL "Mount Device";button ID DMNTD COMMAND '"mnt.rexx dmntd"' LABEL "Dismount Device";button ID CMNT COMMAND '"mnt.rexx cmnt"'  LABEL "Cancel D-Instr.";endgroup;group HORIZ;button ID MNTU COMMAND '"mnt.rexx mount"' LABEL "Mount Unit";button ID DMNTU COMMAND '"mnt.rexx dismount"' LABEL "DisMount Unit";endgroup;  object CLASS '"BetterBalance.mcc"';group ID BSY HORIZ  ATTRS showme 0;object CLASS '"Busy.mcc"' ATTRS FixHeight 5;endgroup;endgroup;endwindow;exit